program Project1;

//{$APPTYPE CONSOLE}

{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Windows.Forms.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\directx for managed code\1.0.2902.0\Microsoft.DirectX.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\directx for managed code\1.0.2902.0\Microsoft.DirectX.Direct3D.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Drawing.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\directx for managed code\1.0.2911.0\Microsoft.DirectX.Direct3DX.dll'}

uses
  SysUtils,
  System.Windows.Forms,
  engine in 'engine.pas',
  scene in 'scene.pas';
  //physic in 'physic.pas';

var
  mafenetre : form;
  monmoteur : CEngine;
  mascene : CScene;


begin
  mafenetre := form.Create;
  mafenetre.show;
  mafenetre.Text := 'DirectX';
  mafenetre.width := 1000;
  mafenetre.height := 800;
  //mafenetre.FormBorderStyle := FormBorderStyle.FixedSingle;
  //mafenetre.MaximizeBox := false;
  //mafenetre.Cursor.Dispose;

  monmoteur := CEngine.Create(mafenetre);

  mascene := CScene.Create( monmoteur );

  while mafenetre.Created do
  begin
    mascene.Render;
    Application.DoEvents
  end;

end.
